#lang racket

(define transpose
  (lambda (ls)
    (if (not(null? ls))
        (cons (list (car (transpose (cdr ls))))
              (list (cdr (transpose (cdr ls)))))
        (cons '() '()))))

(define LA (list '((a 1)(b 2)(c 3))))

(transpose LA)